﻿Imports System.Data
Imports System.Data.SqlClient
Partial Class Sistema_NovedadesPersona
    Inherits System.Web.UI.Page
    Dim mensaje As String
    Dim Exepcion As String
    Dim NumeroError As Integer


    Protected Sub btnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
        Dim Datos As New web_Novedade
        Datos.idPersona = Request.QueryString.Item("idpersona")
        Datos.Novedad = txtObservaciones.Text
        Datos.FechaNovedad = Now()
        Try
            Using bd As New BdHogaresDataContext
                bd.web_Novedades.InsertOnSubmit(Datos)
                bd.SubmitChanges()
                bd.registrarLog(Context.User.Identity.Name, 6, Request.CurrentExecutionFilePath)
            End Using
        Catch ex As Exception
            mensaje = "ERROR"
            Exepcion = ex.Message
        Finally
            If Not IsNothing(mensaje) Then
                Using bd As New bdSeguridadDataContext 'calcula el numero de error que sera asignado al usuario
                    Dim a = (From i In bd.web_Errores Select i.idError).Max
                    NumeroError = a.ToString
                End Using

                Using bd As New BdHogaresDataContext
                    bd.registrarLogError(Context.User.Identity.Name, 6, Request.CurrentExecutionFilePath, Exepcion) 'Guarda en la tabla web_errores la exepción
                End Using

                contentmsg.InnerHtml = "<script>mostrarmensaje('Error en el registro de los datos','Ha ocurrido un error guardando los datos, por favor pongase en contacto con el administrador del sistema. <br>EL NÚMERO DE SU ERROR ES:" & NumeroError.ToString + 1 & "' ,'error');</script>"
            Else
                contentmsg.InnerHtml = "<script>mostrarmensaje('Registro de datos exitoso','Los datos fueron guardados correctamente','success');</script>"

            End If
        End Try
    End Sub

End Class

